function KeyResults(Folder,SOLUTION)
% load('Result_0_Baseline.mat');
% Folder          =   'TableGraphs\\Baseline\\';
% IRF         =   IRF_Baseline;
% Folder = 'TableGraphs\\Baseline\\';

mkdir(Folder);
IRF             =   SOLUTION.IRF;
% Setup
T_IRF           =   12;
XT              =   0+(0:1:T_IRF)';
List_Shock      =   {'Eps_Eta_M_dom','Eps_Eta_M_ext','Eps_Eta_Y_H'};

%--------------------------------------------------------------------------
% Collect the Key Variables
%--------------------------------------------------------------------------
TempNameList    =   {'C','Export','Import','Net Export',.... % Aggregate Quantities
                     'Pir','ir','ExchangeRate','UIP Deviation','Relative Price',... % Aggregate Prices
                     'Agg Dom Share','Effective Return for Int HH',... % Portfolio Choices
                     'ConsDist: Std','ConsDiff: RI', 'ConsDiff: FI','ConsDiff: NA' ... % Distributional Concequence
                     };
for ii_Irf=1:length(List_Shock)
    SH          =   List_Shock{ii_Irf};
    irf         =   IRF.(SH);
  
    [~,MaxIdx]  =   max(abs(IRF.(SH).C));
    TempFun     =   @(irf)irf(MaxIdx);
    TempStatData=   [[TempFun(irf.C);TempFun(irf.Export);TempFun(irf.Import);TempFun(irf.NetExportIdx)]*100;....
                     [TempFun(irf.Pir)*4;TempFun(irf.ir)*4;TempFun(irf.ExchangeRate);TempFun(irf.DevUIP)*4;TempFun(irf.RelPrice)]*100;...
                     [TempFun(irf.DomShare_Pos);TempFun(irf.EffReturn_Pos)]*100;...
                     [TempFun(irf.ConsDist.Disp(1,:)); TempFun(irf.C_byRI_N-irf.C_byRI_H); ...
                      TempFun(irf.C_byFI_dom-irf.C_byFI_ext);TempFun(irf.C_byNA_poor-irf.C_byNA_rich) ...
                      ]/abs(TempFun(irf.C)) ...
                     ];
    if ii_Irf==1
        StatDataArray   =   zeros(length(TempNameList),length(List_Shock));
    end
    StatDataArray(:,ii_Irf) ...
                =   TempStatData;
end
IrfStatTable=   array2table(StatDataArray,'RowNames',TempNameList,'VariableNames',List_Shock);

writetable(IrfStatTable,[Folder,'Irf_KeyResults.xlsx'],'WriteRowNames',true);